Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 618,204.2 5,085.28 176,158.7 1,236,511 10,146.87 371,748.8 618,307.25 100
lp://DOT/LCDOT 3,894,124.5 26,852.01 729,009.8 3,872,510 27,210.68 737,212.9 21,614.15 3.5
lp://AUSD/LCDOT 2,228,107.8 20,312.42 493,376.2 2,218,670 20,226.86 501,172.6 9,438.09 1.5
lp://ACA/AUSD 1,636,451.8 14,829.46 556,275.1 1,638,304 14,901.71 623,132.8 1,851.77 0.3

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,460,942.58 -1,109.80 -7,886.56 NA NA NA NA NA
lp://KINT/KUSD -1,266,900.47 -1,497.85 -8,487.52 NA NA NA NA NA
lp://PHA/KUSD -1,022,294.02 -33.62 -2,160.37 NA NA NA NA NA
lp://KUSD/KINT 1,246,010.99 -6.26 -7,436.57 20,088.41 6.04 14,838.44 1,225,922.57 NA
lp://KUSD/PHA 1,015,836.85 -8.16 -2,376.73 14,840.88 98.21 9,892.77 1,000,995.97 NA
lp://KUSD/KBTC 1,342,857.01 -2,195.66 -10,247.61 483,744.80 15,266.75 198,992.77 859,112.20 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,170.19 106.81 358.79 4,170.19 NA
lp://KAR/LKSM 833,736.31 1,912.25 79,389.12 836,158.55 1,916.42 143,754.18 2,422.24 NA
lp://KAR/KSM 1,121,963.61 4,352.90 263,399.01 1,123,016.95 4,355.15 269,982.32 1,053.34 NA
lp://KUSD/LKSM 544,248.72 3,999.05 134,351.47 545,189.72 5,289.47 161,741.53 941.01 NA
lp://KAR/KUSD 666,978.53 507.06 217,022.25 667,849.64 507.43 336,618.38 871.12 NA
lp://KUSD/KSM 576,585.23 2,413.46 339,179.91 576,003.71 2,412.42 341,264.47 581.52 NA
lp://KUSD/BNC 58,947.25 2,799.62 10,219.98 58,415.85 2,775.90 10,818.65 531.39 NA
lp://KSM/LKSM 113,302.42 370.21 13,778.23 113,466.91 372.37 30,313.93 164.50 NA
lp://KUSD/QTZ 26,159.80 3,272.69 18,244.66 26,272.28 4,567.46 25,167.99 112.48 NA
lp://KAR/QTZ 25,111.11 3,632.88 21,018.36 25,199.66 3,657.04 39,415.65 88.55 NA
lp://KUSD/CSM 21,063.19 469.68 7,795.84 21,143.12 469.68 8,605.66 79.94 NA
lp://KUSD/RMRK 11,740.32 152.80 6,381.97 11,818.85 153.69 6,578.68 78.53 NA
lp://KSM/ARIS 63.23 2.42 194.44 126.35 5.02 513.26 63.12 NA
lp://KSM/RMRK 6,838.58 53.26 2,019.40 6,875.09 53.55 2,034.76 36.51 NA
lp://KUSD/ARIS2 85,419.84 27,557.29 73,823.22 85,383.80 41,911.86 152,238.77 36.03 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```